home *** CD-ROM | disk | FTP | other *** search
/ Floppyshop 2 / Floppyshop - 2.zip / Floppyshop - 2.iso / art&graf.ix / art-4774 / ipf / creator1.bas (.txt) next >
Atari STOS Basic  |  1994-05-26  |  5KB  |  113 lines
  1. 10 FOR
  2. 100 CENTRE
  3. 1000 ERASE
  4. 1010 RESERVE
  5. 1020 FOR
  6. 1030 EXTENSION (Index #12) (Token 0x94)
  7. 1040 NEXT
  8. 1050 VARNAME
  9. 1060 IF
  10. 1070 IF
  11. 1080 LOCATE
  12. 1090 GOTO
  13. 110 LOCATE
  14. 1100 BSAVE
  15. 1110 ERASE
  16. 1120 GOTO
  17. 120 PRINT
  18. 130 PRINT
  19. 140 PRINT
  20. 150 PRINT
  21. 160 PRINT
  22. 170 PRINT
  23. 180 PRINT
  24. 190 PRINT
  25. 20 ERASE
  26. 200 PRINT
  27. 210 PRINT
  28. 220 PRINT
  29. 230 PRINT
  30. 240 PRINT
  31. 250 PRINT
  32. 260 LOCATE
  33. 270 LOCATE
  34. 280 LOCATE
  35. 290 LOCATE
  36. 30 NEXT
  37. 300 LOCATE
  38. 310 LOCATE
  39. 320 LOCATE
  40. 330 LOCATE
  41. 340 LOCATE
  42. 350 LOCATE
  43. 360 LOCATE
  44. 370 LOCATE
  45. 380 LOCATE
  46. 390 LOCATE
  47. 40 MODE
  48. 400 LOCATE
  49. 410 LOCATE
  50. 420 LOCATE
  51. 430 LOCATE
  52. 440 VARNAME
  53. 450 IF
  54. 460 IF
  55. 470 IF
  56. 480 IF
  57. 490 IF
  58. 50 CLICK
  59. 500 GOTO
  60. 510 LOCATE
  61. 520 INPUT
  62. 530 IF
  63. 540 IF
  64. 550 VARNAME
  65. 560 IF
  66. 570 IF
  67. 580 ERASE
  68. 590 RESERVE
  69. 60 DIM
  70. 600 LOAD
  71. 610 VARNAME
  72. 620 LOCATE
  73. 630 FOR
  74. 640 ERASE
  75. 650 VARNAME
  76. 660 NEXT
  77. 670 GOTO
  78. 680 LOCATE
  79. 690 ERASE
  80. 70 FOR
  81. 700 GOTO
  82. 710 LOCATE
  83. 720 IF
  84. 730 IF
  85. 740 ERASE
  86. 750 RESERVE
  87. 760 FOR
  88. 770 EXTENSION (Index #12) (Token 0x94)
  89. 780 NEXT
  90. 790 MODE
  91. 80 PALETTE
  92. 800 GET PALETTE
  93. 810 LIMIT MOUSE
  94. 820 VARNAME
  95. 830 REPEAT
  96. 840 IF
  97. 850 IF
  98. 860 IF
  99. 870 IF
  100. 880 IF
  101. 890 IF
  102. 90 SHOW
  103. 900 IF
  104. 910 IF
  105. 920 IF
  106. 930 IF
  107. 940 IF
  108. 950 IF
  109. 960 EXTENSION (Index #12) (Token 0x94)
  110. 970 UNTIL
  111. 980 MODE
  112. 990 LOCATE
  113.